with Ada.Text_IO;	use Ada.Text_IO;
with Ada.Integer_Text_IO;
with Ada.Float_Text_IO;

package body off_IO is

   -----------------------------------------------------------------------------
   -----------------------------------------------------------------------------
   procedure read(F : in File_Type ; s : in out Tline )is
      i : integer := 1;
      a : integer;
   begin
      while(i<=4)loop
         Ada.Integer_Text_IO.Get(F,a);
         s(i) := a;
         i := i + 1;
      end loop;
   end read;
   -----------------------------------------------------------------------------
   -----------------------------------------------------------------------------
   procedure read( F : in File_Type; c : in out Sline) is
      i : integer := 1;
      a : float;
   begin
      while(i<=3)loop
         Ada.Float_Text_IO.Get(F,a);
         c(i) := a;
         i := i + 1;
      end loop;
   end read;
   -----------------------------------------------------------------------------
   -----------------------------------------------------------------------------
   procedure read(F : in File_Type; nbs : in out integer; nbT : in out integer) is
   begin
      set_line(F,2);
      Ada.Integer_Text_IO.Get(F,nbS);
      Ada.Integer_Text_IO.Get(F,nbT);set_line(F,3);
   end read;

end off_IO;
